subroutine init_geom_data(lunit)
  use data_param,only:geom_exist
  use geom_data_param,only:n_geom_obj
  use geom_data_param,only:geom_obj

  integer,intent(in) :: lunit
  integer :: i

  n_geom_obj=0
  nullify(geom_obj)

  return

end subroutine init_geom_data
